﻿Partial Public Class Annunci
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Page.Title = ConfigurationManager.AppSettings("sitename") & " Amministrazione - Gestione Annunci"
    End Sub
    Private Sub GRD_Annunci_DataRequesting(ByVal sender As Object, ByVal e As Trirand.Web.UI.WebControls.JQGridDataRequestEventArgs) Handles GRD_Annunci.DataRequesting
        GRD_Annunci.DataSource = DAL.Context.Annuncio.Select(Function(a) New AnnuncioDTO(a.ID, a.Titolo, a.Descrizione, a.Condizione.Descrizione, a.TipoContratto.Descrizione, _
                                                                    a.TipoImmobile.Descrizione, a.Comune.Comune & " (" & a.Comune.Provincia.Sigla & ")", _
                                                                    a.Utente.Cognome & " " & a.Utente.Nome.Substring(0, 1) & ".", a.Indirizzo, 0, a.DataPubblicazione, _
                                                                    If(a.MQ, 0), If(a.Vani, 0), 0, 0, False, 0, "", If(a.Prezzo, 0), If(a.Riferimento, String.Empty)))
    End Sub
    Private Sub GRD_Annunci_RowDeleting(ByVal sender As Object, ByVal e As Trirand.Web.UI.WebControls.JQGridRowDeleteEventArgs) Handles GRD_Annunci.RowDeleting
        Dim ann As Annuncio = DAL.Context.Annuncio.Where(Function(a) a.ID.ToString = e.RowKey).Single
        If ann IsNot Nothing Then
            DAL.Context.Annuncio.DeleteOnSubmit(ann)
            DAL.Context.SubmitChanges()
        End If
    End Sub
End Class